home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_5 / issue_01 / update / NewRoms
Encoding:
Text File  |  1991-08-28  |  804 b   |  30 lines
  1. How to use MidiVision 1.00 with the new Acorn Midi Roms (version 3.14)?
  2.  
  3. After I wrote the MidiVision MIDI Input Monitor (Shareware 33), Acorn 
  4. changed the specifications of its MIDI podule. If you change the code 
  5. of FNmidiIn as follows, it will work fine again. 
  6.  
  7.         DEF FNmidiIn
  8.         LOCAL R0, R1
  9.         R0=0 : R1=0
  10.         WHILE R0=0
  11.           SYS("MIDI_RxByte"),-1 TO R0,R1
  12.         ENDWHILE
  13.         R0 = R0 AND &FF
  14.         t$=STR$(R1)
  15.         IF LEN(t$)>4 THEN t$=RIGHT$(t$)
  16.         WHILE LEN(t$)<4
  17.           t$=" "+t$
  18.         ENDWHILE
  19.         =R0
  20.  
  21. If you want MidiVision to show real time messages too, you should add
  22.  
  23.         SYS"MIDI_Init",1<<30
  24.  
  25. in the beginning of the program, just before the SYS"MIDI_TxStart".
  26.  
  27.  
  28.  
  29.                                                  The Lord Of Entropy
  30.